home *** CD-ROM | disk | FTP | other *** search
/ Chip 2006 June (Extra) / CHIP 2006-06.3.iso / program / tam_surum / Astronoid-v1.2.0.exe / $OUTDIR / data / scripts / modules / mine-explo.tcl < prev    next >
Encoding:
Text File  |  2006-03-01  |  1019 b   |  42 lines
  1. # ---
  2. # $parser:ntclserver$ $class:n3dnode$ $ver:Fri Jan 19 14:32:25 2001$
  3. # ---
  4.  
  5. proc mineexplo { inner outer fact freq nb} {
  6.  
  7.  
  8.     new npointemitter pe
  9.         sel pe
  10.  
  11.         .setreptype "oneshot"
  12.         .setchannel "localtime"
  13.         .setscale 1.000000
  14.         .settimes 0.000000 0.2000000 30
  15.         .setlifetime 2.000000
  16.         .setmaxfreq $freq
  17.         .setfreq $freq
  18.         .setspeed 500
  19.         .setaccel 0.000000 0.000000 0.000000
  20.         .setinnercone $inner
  21.         .setoutercone $outer
  22.         .setspin 100.000000
  23.         .setrender /lib/prender/mineexplo$nb/sr
  24.  
  25.         new nipol ip_speed
  26.             sel ip_speed
  27.             .setreptype "oneshot"
  28.             .setchannel "localtime"
  29.             .setscale 1.000000
  30.             .connect "setspeed"
  31.             .beginkeys 3 1
  32.             .addkey1f 0 [expr 2 * $fact]
  33.             .addkey1f 2 [expr 10 * $fact]
  34.             .addkey1f 4 [expr 2 * $fact]
  35.             .endkeys
  36.         sel ..
  37.     sel ..
  38. }
  39.  
  40. # ---
  41. # EOF
  42.